* net/tramp.el (tramp-handle-insert-directory): Don't use

`forward-word', it's default syntax could be changed.

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 075e931878e2167acf9b4b33ba98c706baa3b856..91b35481730dfa4678fa2b5953c1c7fd6896b3b3 100644 (file)
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -4300,13 +4300,11 @@ This is like `dired-recursive-delete-directory' for Tramp files."
        (forward-line -2)
        (when (looking-at "//SUBDIRED//")
          (forward-line -1))
-       (when (looking-at "//DIRED//")
-         (let ((end (tramp-compat-line-end-position))
-               (linebeg (point)))
+       (when (looking-at "//DIRED//\\s-+")
+         (let ((databeg (match-end 0))
+               (end (tramp-compat-line-end-position)))
            ;; Now read the numeric positions of file names.
-           (goto-char linebeg)
-           (forward-word 1)
-           (forward-char 3)
+           (goto-char databeg)
            (while (< (point) end)
              (let ((start (+ beg (read (current-buffer))))
                    (end (+ beg (read (current-buffer)))))